home *** CD-ROM | disk | FTP | other *** search
/ Publication 10 / Publication_10_1996_High-Tech_de_Side_B.d64 / basicplasma [+h] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  585b  |  14 lines
  1. 8500 print"[147]":poke 53265,91
  2. 8505 a$=" [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160]"
  3. 8506 b$="[160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] "
  4. 8507 c$=" [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160]"
  5. 8508 d$="[160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] "
  6. 8510 poke53280,0:poke 53281,0:poke53282,0:poke53283,0:poke 53284,0
  7. 8520 fori=0to3:printa$;b$;c$;d$;c$;b$;:next
  8. 8760 fori=0to50
  9. 8770 poke 53281,10:poke53282,2:poke53283,9:poke 53284,0
  10. 8780 poke 53282,10:poke53283,2:poke53284,9:poke 53281,0
  11. 8790 poke 53283,10:poke53284,2:poke53281,9:poke 53282,0
  12. 8800 poke 53284,10:poke53281,2:poke53282,9:poke 53283,0        
  13. 8810 next
  14.